Unit UnDmOnderzoekerOnderzoeken;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmOnderzoekerOnderzoeken = interface(IAppServerSOAP)
    ['{A68BB7E1-E5CE-41D0-AD49-8585C55E6245}']
  end;

  TDmOnderzoekerOnderzoeken = class(TSoapDataModule, IDmOnderzoekerOnderzoeken, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrOnderzoekerOnderzoeken: TADOQuery;
    PrvOnderzoekerOnderzoeken: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmOnderzoekerOnderzoekenCreateInstance(out obj: TObject);
begin
 obj := TDmOnderzoekerOnderzoeken.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmOnderzoekerOnderzoeken, TDmOnderzoekerOnderzoekenCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmOnderzoekerOnderzoeken));
end.
